function EndPointDetection(nWords)

%Syntax:EndPointDetection(nWords);
%Fecha:          016/10/08
%MATLAB R2008a UNIX-Linux 64
%Autor: Paula Sanz Leon

%Descripcion: esta funcion prueba la performance de VAD. Guarda las
%longitudes de las señales iniciales y de las finales. Tambien guarda la
%señal recortada en formato wav con los mismos parametros que la original
%nWords es el numero de palabras a leer, suponiendo que la nomencaltura de
%los archivos contiene un numero.




LMatrix = zeros(2,nWords);

for j = 1:nWords
        q = ['/home/paula/espich/TrainingData/Paula/5_' num2str(j) '.wav']; %Directorio donde se encuentra el training set
        [original,fs,nBits]   = wavread(q);
        speechIn              = myVAD(original);                            %Recorte de la señal. Deteccion de Voz
        LMatrix(1,j)          = length(original);
        LMatrix(2,j)          = length(speechIn);
        INduration            = LMatrix(1,j)/fs;
        OUTduration           = LMatrix(2,j)/fs;
        step                  = 1/fs;       
        INtime                = 0:step:(INduration-step);
        OUTtime               = 0:step:(OUTduration-step);
        
        figure                                                             %Display
    
        subplot(1,2,1); plot(INtime,original,'Color', [0,0,1]);
        xlabel('Duracion [seg]','FontSize',12);
        ylabel('Amplitud Normalizada','FontSize',12);
        title(['Señal de Entrada:',sprintf('\n'),num2str(j)],'FontSize',12);
        
        subplot(1,2,2); plot(OUTtime,speechIn,'Color',[0, 0.8,0.8]);
        xlabel('Duracion [seg]','FontSize',12);
        ylabel('Amplitud Normalizada','FontSize',12);
        title(['Señal Recortada:',sprintf('\n'),num2str(j)],'FontSize',12);
        wavwrite(speechIn,fs,nBits,['/home/paula/espich/TrainingData/Leo/out_' num2str(j)]);
        
end     

%LMatrix;                                                                    %Matriz con las long. de las señales

%Lectura de Archivos .wav en forma individual
%[y, fs, nbits]=wavread(fileName);

%Información de Salida en el Workspace. Propiedades del Archivo
%fprintf('Informacion del archivo de sonido "%s":\n', fileName); 
%fprintf('Duration = %g segundos \n', length(y)/fs); 
%fprintf('Frecuencia de muestreo = %g muestras/seg\n', fs); 
%fprintf('Resolucion = %g bits/muestra\n', nBits);



